﻿Public Class oDocPromotionGet
    Public Function GetDocPromotionGetByDocEntry(ByVal dataBaseName As String, ByVal docEntry As String) As DataSet
        Dim connect As New Connection()
        Try
            Dim ds As New DataSet("oDocPromotionGet")
            Dim errMsg As String = connect.setSQLDB(dataBaseName)
            If errMsg.Length = 0 Then
                ds = connect.ObjectGetAll_Query_SAP("SELECT * FROM oDocPromotionGet WHERE DocEntry = @Param1", New Object() {docEntry})
            End If
            Return ds
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    Public Function GetDocPromotionGetByID(ByVal dataBaseName As String, ByVal id As String) As DataSet
        Dim connect As New Connection()
        Try
            Dim ds As New DataSet("oDocPromotionGet")
            Dim errMsg As String = connect.setSQLDB(dataBaseName)
            If errMsg.Length = 0 Then
                ds = connect.ObjectGetAll_Query_SAP("SELECT * FROM oDocPromotionGet WHERE ID = @Param1", New Object() {id})
            End If
            Return ds
        Catch ex As Exception
            Throw ex
        End Try
    End Function

End Class
